home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / syswit / plans.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-08  |  4.8 KB  |  135 lines
  1. DefInt A-Z
  2. Dim ReadString As String * 255
  3.  
  4. Sub CopyFile (SOURCE As String)
  5. X = False
  6. If UCase$(SOURCE) = "SYSTEM.INI" Then X = MsgBox("Restart using current SYSTEM.INI?", 4, "No Change")
  7. If X = IDYES Then RestartProc
  8. If X = IDNO Then Exit Sub
  9. Windir = Windir + "\"
  10. Destination$ = Windir + "System.ini"
  11. DestinationBack$ = Windir + "system.bak"
  12. SOURCE$ = Windir + SOURCE
  13. On Error Resume Next
  14. Kill DestinationBack$
  15. Name Destination$ As DestinationBack$
  16. On Error GoTo ErrProc
  17.  
  18. Open SOURCE$ For Binary As #1
  19. Whole = LOF(1) \ 32000
  20. part = LOF(1) Mod 32000
  21. buffer$ = String$(32000, 0)
  22. start& = 1
  23. Open Destination$ For Binary As #2
  24. For X = 1 To Whole
  25.        Get #1, start&, buffer$
  26.        Put #2, start&, buffer$
  27.        start& = start& + 32000
  28. Next X
  29. buffer$ = String$(part, 0)
  30. Get #1, start&, buffer$
  31. Put #2, start&, buffer$
  32. Close
  33. Call RestartProc
  34. Exit Sub
  35.  
  36. ErrProc:
  37. MsgBox "Disk error"
  38. Kill Destination$
  39. Name DestinationBack$ As Destination$
  40. End
  41. End Sub
  42.  
  43. Sub Frame (F As Form, L, T, H, W)
  44.   OFFSET = 4
  45.   BIGOFFSET = 6
  46.   F.DrawWidth = 1
  47.   F.forecolor = &HE0E0E0
  48.   'bottom:
  49. F.Line (L + F.DrawWidth, T + H + OFFSET)-(L + W - F.DrawWidth, T + H + OFFSET)
  50.   
  51.   'right:
  52. F.Line (L + W + OFFSET, T + F.DrawWidth)-(L + W + OFFSET, T + H + OFFSET - F.DrawWidth)
  53.  
  54. F.forecolor = &H808080
  55.   'top:
  56.  F.Line (L - BIGOFFSET + F.DrawWidth, T - BIGOFFSET)-(L + W + BIGOFFSET - F.DrawWidth, T - BIGOFFSET)
  57.   
  58.   'left:
  59. F.Line (L - BIGOFFSET, T + F.DrawWidth - BIGOFFSET)-(L - BIGOFFSET, T + H + BIGOFFSET - F.DrawWidth)
  60.  
  61. End Sub
  62.  
  63. Sub Frame2 (F As Form, L, T, H, W)
  64.   OFFSET = 4
  65.   BIGOFFSET = 6
  66.   F.DrawWidth = 2
  67. F.forecolor = &H808080
  68.   'bottom:
  69. F.Line (L + F.DrawWidth, T + H + OFFSET)-(L + W - F.DrawWidth, T + H + OFFSET)
  70.   
  71.   'right:
  72. F.Line (L + W + OFFSET, T + F.DrawWidth)-(L + W + OFFSET, T + H + OFFSET - F.DrawWidth)
  73.  
  74.   F.forecolor = &HE0E0E0
  75.  
  76.   'top:
  77.  F.Line (L - BIGOFFSET + F.DrawWidth, T - BIGOFFSET)-(L + W + BIGOFFSET - F.DrawWidth, T - BIGOFFSET)
  78.   
  79.   'left:
  80. F.Line (L - BIGOFFSET, T + F.DrawWidth - BIGOFFSET)-(L - BIGOFFSET, T + H + BIGOFFSET - F.DrawWidth)
  81.  
  82.  
  83. End Sub
  84.  
  85. Sub ReadProf ()
  86. X = GetPrivateProfileString("Syswitch", "ConfigName1", "Default Configuration", ReadString, 255, "Syswitch.INI")
  87. ConfigName(1) = stripstring(ReadString)
  88. X = GetPrivateProfileString("Syswitch", "ConfigName2", "Default Configuration File", ReadString, 255, "Syswitch.INI")
  89. ConfigName(2) = stripstring(ReadString)
  90. X = GetPrivateProfileString("Syswitch", "ConfigName3", "Default System Configuration", ReadString, 255, "Syswitch.INI")
  91. ConfigName(3) = stripstring(ReadString)
  92. X = GetPrivateProfileString("Syswitch", "ConfigName4", "Use File Configure to Change Default", ReadString, 255, "Syswitch.INI")
  93. ConfigName(4) = stripstring(ReadString)
  94. X = GetPrivateProfileString("Syswitch", "ConfigName5", "Default", ReadString, 255, "Syswitch.INI")
  95. ConfigName(5) = stripstring(ReadString)
  96. X = GetPrivateProfileString("Syswitch", "ConfigFile1", "SYSTEM.INI", ReadString, 255, "Syswitch.INI")
  97. ConfigFile(1) = stripstring(ReadString)
  98. X = GetPrivateProfileString("Syswitch", "ConfigFile2", "SYSTEM.INI", ReadString, 255, "Syswitch.INI")
  99. ConfigFile(2) = stripstring(ReadString)
  100. X = GetPrivateProfileString("Syswitch", "ConfigFile3", "SYSTEM.INI", ReadString, 255, "Syswitch.INI")
  101. ConfigFile(3) = stripstring(ReadString)
  102. X = GetPrivateProfileString("Syswitch", "ConfigFile4", "SYSTEM.INI", ReadString, 255, "Syswitch.INI")
  103. ConfigFile(4) = stripstring(ReadString)
  104. X = GetPrivateProfileString("Syswitch", "ConfigFile5", "SYSTEM.INI", ReadString, 255, "Syswitch.INI")
  105. ConfigFile(5) = stripstring(ReadString)
  106. End Sub
  107.  
  108. Sub RestartProc ()
  109. Okay% = ExitWindows(&H42, 0)
  110. If Okay% = 0 Then MsgBox "Cannot Restart Windows", 32, "Win Restart"
  111. End
  112. End Sub
  113.  
  114. Function stripstring (SOURCE As String) As String
  115. L = Len(SOURCE)
  116. For X = 1 To L
  117. If Asc(Mid$(SOURCE, X, 1)) < 32 Then Exit For
  118. Next X
  119. stripstring = Left$(SOURCE, X - 1)
  120. End Function
  121.  
  122. Sub WritProf ()
  123. X = WRitePrivateProfileString("Syswitch", "ConfigFile1", ConfigFile(1), "Syswitch.Ini")
  124. X = WRitePrivateProfileString("Syswitch", "ConfigFile2", ConfigFile(2), "Syswitch.Ini")
  125. X = WRitePrivateProfileString("Syswitch", "ConfigFile3", ConfigFile(3), "Syswitch.Ini")
  126. X = WRitePrivateProfileString("Syswitch", "ConfigFile4", ConfigFile(4), "Syswitch.Ini")
  127. X = WRitePrivateProfileString("Syswitch", "ConfigFile5", ConfigFile(5), "Syswitch.Ini")
  128. X = WRitePrivateProfileString("Syswitch", "ConfigName1", ConfigName(1), "Syswitch.Ini")
  129. X = WRitePrivateProfileString("Syswitch", "ConfigName2", ConfigName(2), "Syswitch.Ini")
  130. X = WRitePrivateProfileString("Syswitch", "ConfigName3", ConfigName(3), "Syswitch.Ini")
  131. X = WRitePrivateProfileString("Syswitch", "ConfigName4", ConfigName(4), "Syswitch.Ini")
  132. X = WRitePrivateProfileString("Syswitch", "ConfigName5", ConfigName(5), "Syswitch.Ini")
  133. End Sub
  134.  
  135.